home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / ada / gwuada_6.zip / CLOSE.C < prev    next >
C/C++ Source or Header  |  1993-04-11  |  1KB  |  46 lines
  1. /*
  2.     GWAda Development Environment for 386/486 PCs   
  3.     Copyright (C) 1993, Arthur Vargas Lopes  & Michael Bliss Feldman
  4.                         vlopes@vortex.ufrgs.br mfeldman@seas.gwu.edu
  5.  
  6.     This program is free software; you can redistribute it and/or modify
  7.     it under the terms of the GNU General Public License as published by
  8.     the Free Software Foundation; version 2 of the License.    
  9.  
  10.     This program is distributed in the hope that it will be useful,
  11.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  12.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13.     GNU General Public License for more details.
  14.  
  15.     You should have received a copy of the GNU General Public License
  16.     along with this program; if not, write to the Free Software
  17.     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18. */
  19.  
  20. /* close.c */
  21.  
  22. #include "externs.h"
  23.  
  24.  
  25.  
  26.  
  27. void AVL_CLOSE()
  28. {
  29.     int i;
  30.     char msg[81];
  31.     if (avl_nwindows == 1)  
  32.         AVL_EXIT();
  33.     if (avl_windows[avl_window].changed)  {
  34.         sprintf(msg," Save %s (Y/N) ? ",avl_windows[avl_window].file_name);
  35.         if (AVL_QUESTION(msg) == 'Y')
  36.             AVL_SAVE();
  37.         }
  38.     AVL_FREE_ALL();
  39.     for(i = avl_window; i < (avl_nwindows - 1); ++i)
  40.         avl_windows[i] = avl_windows[i + 1];
  41.     --avl_nwindows;
  42.     if (avl_window != 0) --avl_window;
  43.     AVL_RESTORE_ENV();
  44. }
  45.                 
  46.